<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>2892</cardID>
<listID>4238</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- Start Color Toolslock screenlock messageslock recentpush cardgo to cd 1 of stack Homeif (there is a cd btn "Color Tools are ON") thenif (the visible of cd btn "Color Tools are ON") and ¬(there is a stack "Color Tools") thenstart using stack "Color Tools" -- ∆send "AddColorInit" to stack "Color Tools"end ifend ifpop cardunlock messagessend "reset menubar" to this cardunlock recentunlock screen-- End Color Toolson openStackAddColor install-- doMenu andre-- delete menu "Edit"-- delete menu "Go"-- delete menu "Tools"-- delete menu "Objects"-- delete menu "Font"-- delete menu "Style"-- delete menu "File"-- create menu "File"-- put "Quit" into menu "File" with menuMsg "domenu Quit HyperCard"hide titleBarpass openStackend openStackon openCardSend colorMe to this cardpass openCardend openCardon closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon closeStackAddColor removepass closeStackend closeStack-- Third party developer menu routines-- simulates a message that the menubar has been reseton reset commandif (command="menubar") thenif the short name of this stack is Home thenunlock messagesrepeat with x = 0 to the number of lines in the stacksinusesend "menuReset Home" to stack line x of the stacksinuseend repeatexit resetend ifsend "reset menubar" to Hypercardsend "menuReset" to this stackelsepass resetend ifend reseton menuReset isHome-- Trap menuReset after all the developers-- are finished adding menusif isHome = "Home" thenexit menuResetend ifend menuReset</script>
